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"WHEN YOU CARE ENOUGH TO PROGRAM 
THE VERY BEST" 

ZGRASS V2.00000000 

JAY FENTON, NOUS DONATO, AND TOM DEFANTI 
(C) 1978 


.INSERT AsZRAM.ASM 
.INSERT AsIOEQU.ASM 
.INSERT As NCUEQU.ASM 
BX.X=1 
BX.Y=6 
BX.XS=11 
BX.YS=16 
BX.M0D=21 

. PREL 

.IDENT GRAPH 
.EXTERN ALLOC 
.EXTERN ARG 
.EXTERN CHARWIN 
.EXTERN DECSIY 
.EXTERN DIV16 
.EXTERN DONCU 
.EXTERN DVDE2 
.EXTERN ERRPGM 
.EXTERN INC5IY 
.EXTERN IPOP 
.EXTERN IPUSH 
.EXTERN LN 
„EXTERN PUTTAPE 
.EXTERN RETMONE 
.EXTERN SINE 

t* 

7 

.INTERN BOX 
.INTERN CLEAR 
.INTERN CPHLDE 
.INTERN DISPLAY 
.INTERN DOBOX 
.INTERN LINE 
.INTERN PIXEL 
.INTERN R2A 
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.INTERN SCLEAR 
.INTERN SCROLE 
.INTERN SNAP 


0012 


SNP.XS= 

12H 

0014 


SNP.YS= 

14H 

0016 


SNP.DS= 

16H 

0006 


AR.TYP= 

6 

0007 


AR.SIZ= 

7 

0009 


AR.DIM= 

9 

0028 


BYTEPL= 

40 5 BYTES PER LINE OF 

OFFF 


URINAL- 

OFFFH 5 STUPID MEMORY CELL 

4FFF 


CRAPPER=4FFFH 
; ZGRASS PIXEL FUNCTION 

M.CMDCPIXELi„.PIXX» 0» PINPUT j.„PIXA,..PIXS3C 

oooo •- 

18 

4-PIXELs 

.BYTE $CMDADR 

0001"' 

03 

-h 

.BYTE C„.PIXX-PIXEL)/16+1 

0002 

00 

+ 

.BYTE 0 

0003" 

0039" 

4 * 

.WORD PINPUT 

0005" 

0010" 

4* 

.WORD ..PIXS 

0007 "' 

0013" 

H- 

.WORD ..PIXA 

0009" 

504958454C00+ 

+3 

.ASCIZ /PIXEL/ 

00 OF "' 

00 


.BYTE 0 

0010"' 

CD 0000 s 05 

..PIXS5 

CALL ARG 

0013 ’" 

040400 

PIXA; 

.BYTE $IVAL,$IVAL,$TAF 

0016" 

E5 


PUSH H 

0017"' 

FD5606 


MOV D,6<Y) ? D=Y 

001 A' 

FD5E01 


MOV Erl(Y) 5 E=X 

00 ID’" 

CD 0029" 


CALL GPIXEL 

0020"' 

5F 


MOV E, A 

0021"' 

1600 


MV I Di 0 

0023"' 

3t04 


MVI A,$IVAL 

0025"' 

El 


POP H 

0026 "' 
0029"' 

C3 OOOOsll 

JMP RETNONE 

„„PIXX5 

; ROUTINE TO INTERROGATE PIXEL 

0029"' 

CD 0682"' 

GPIXELs 

CALL R2ACLP 

002C •" 

47 


MOV B, A 

O02D" 

3E04 


MVI A,4 

002F"'- 

DO 


RNC 

0030" 

04 


INR B 

0031"' 

7E 


MOV A,M 

0032"' 

07 

««SHFTs 

RLC 

0033"' 

07 


RLC 

0034"' 

10FC 


DJNZ ..SHFT 

0036 •" 

E603 

1 .. . 

AN I 3 

0038"' 

C9 

RET 

M „ CMD C PIIMPUT v„ . PIX, 0 * POUTPUT, . . PIA, - „ PIS 3 C 

0039" 

18 

+PINPUTS 

.BYTE fCMDADR 

003A"' 

03 

•4 

.BYTE <..PIX-PINPUT)/16+1 

003B-" 

00 

*4 

.BYTE 0 

003C 

005A •" 

4 * 

.WORD POUTPUT 

003E "' 

0049" 

4 * 

.WORD ..PIS 

0040 •" 

004C" 

*4 

.WORD ..PIA 

0042 ■" 

50494E50555 

144* 

.ASCII /PINPUT/ 


DISPLAY 
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0049 

CD 0000s05 

. .PISs 

CALL 

ARG 

004C •" 

0400 

. .PIAs 

. BYTE 

$IVAL.,$TAF 

004E 

FD4E01 


MOV 

C,1(Y) 

0051-' 

ED58 


INP 

E 

0053"' 

1600 


MV I 

D i 0 

0055 -' 

3E04 


MV I 

A,$IVAL 

0057 "' 

C3 0000s11 


JMP 

RETNONE 

005A •" 


„ .PIXs 





M.CMDEPOUTPUT, 

..POX,0 , POINT,„.POA,..PO 

005A-" 

18 

4-ROUTPUT 

II 

.BYTE $CMDADR 

005B "' 

03 

4* 

„ BYTE 

(. . POX-POUTPUT)/16+1 

005C" 

00 

4- 

. BYTE 

0 

005D -' 

007A" 


. WORD 

POINT 

005F -' 

006B •" 

4* 

. WORD 

. . POS 

0661 ' 

006E"' 

*4- 

. WORD 

. . POA 

0063"' 

504F5554505 

54 

. ASCIZ 

/POUTPUT/ 



4 ] 



006B- 

CD 0000 s 05 

« « P08 s 

CALL 

ARG 

006E ' 

040400 

u « POA s 

. BYTE 

$IVAL,$IVAL,$TAF 

0071-' 

FD4E01 


MOV 

C, 1<Y) 

0074" 

FD7E06 


MOV 

A 7 6 (Y) 

0077 ' 

ED79 


OUTP 

A 

0079 ' 

C9 


RET 


007A" 


« n POX S 





M.CMDCPOINT,.. 

PNTX,0,PUTTAPE 7 „.PNTA,.. 1 

007A "' 

18 

4P0INTS 

„ BYTE 

TCMDADR 

007B •' 

03 

4 

. BYTE 

(..PNT X-POINT 5/16+1 

007C "' 

00 

4 

„ BYTE 

0 

007D-' 

0000 s 10 

-I- 

.WORD 

PUTTAPE 

007F" 

008A'" 

-I- 

. WORD 

.„PNTS 

0081 -' 

008D"' 

4 

. WORD 

..PNTA 

0083"' 

504F494E54G0+ 

.ASCIZ 

/POINT/ 



+1 



0089 -' 

00 


.BYTE 

0 

008A -' 

CD 0000s05 

. . F'NTSs 

CALL 

ARG 

008D" 

04040400 

.„PNTA s 

.BYTE 

$ IV AL., $ IVAL, $ IV AL, $TAF 

0091 -' 

FD5606 


MOV 

D, 6 CY> 

0094"' 

FD5E01 


MOV 

E,1(Y) 

0097' 

FD7E0B 


MOV 

A 7 11 < Y) 

009A "' 

E5 


PUSH 

H 

009B "' 

CD OOAO" 


CALL 

POINTR 

009E-' 

El 


POP 

H 

009F" 

C9 


RET 


OOAO •" 


. . PNTX s 




5 POINT ROUTINE 
5 A=MODE PARAMETER 
5 DE= Y,X COORDINATES 
5 HL=SMASHED 


OOAO 

CB57 

POINTRs BIT 

2, A ; 

OR 

00A2-" 

20 IF 

>JRNZ 

PRPLOP " 

NO 



S OR OR XOR - 

SET XPAND 


00 A 4 " 

07 

RLC 



00A5" 

07 

RLC 



00ft 6. •" 

E6FC 

ANI 

OFCH 
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00 AS •" 

D31 9 


OUT 


XPAND 

OOAA"' 

CB 6 F 


BIT 


5, A 

00 AC'" 

2008 


JRNZ 


ORPT 

OOAE 

CD 0682"' 

X'ORPT s 

CALL 


R2ACL.P 

OOB1 "' 

DO 


RNC 



00B2"' 

F628 


OR I 


0101000B 

00B4" 

1806 


JMPR 


ORJOIN 

OOB 6 "' 

CD 0682"' 

ORPTs 

CALL 


R2ACLP 

00B9 

DO 


RNC 



OOBA" 

F 618 


OR I 


00 11 OOOB 

OOBC"' 

D30C 

ORJOINs 

OUT 


MAGIC 

OOBE •" 

0BB4 


RES 


6 ,H 

OOCO" 

8 68 U 


MVI 


M 1 80H 

00 C 2 *** 

C9 


RET 



00C3 •" 

CB5F 

F'RPLOP s 

BIT 


■z* 7 A 

00C5 ■" 

2029 


JRNZ 


PRIOR 

00C7 •" 

C5 

F'LOPs 

PUSH 


B 

00 C 8 ’’ 

D319 

PLOPis 

OUT 


XPAND 

OOCA*’ 

3E08 


MVI 


A 7 0000iOOOB 

oocc *■* 

D30C 


OUT 


MAGIC 

00CE ’’ 

32 OFFF 


STA 


URINAL 

0 . 0 D 1 

3A 4FFF 


LDA 


CRAPPER 

00D4 

47 


MOV 


B, A 

00D5 •" 

CD 0682"' 


CALL 


R2ACLP 

00D8 •" 

3014 


JRNC 


PLOPNG 

OODA" 

F608 


ORI 


00001OOOB 

OODC "' 

D30C 


OUT 


MAGIC 

QODE-" 

3E8C 


MVI 


A,100011OOB 

OOEO "' 

D319 


OUT 


XPAND 

00E2"' 

32 OFFF 


STA 


URINAL 

00E5 •" 

3A 4FFF 


LDA 


CRAPPER 

00E8 •" 

4F 


MOV 


C,A 

00E9 "' 

78 


MOV 


A,B 

OOE A •" 

AE 


XRA 


M 

OOEB 

A 1 


ANA 


C 

OOEC"' 

AE 


XRA 


M 

OOED "' 

77 


MOV 


M,A 

OOEE •" 

Cl 

PLOPMGs 

POP 


B 

OOEF 

C9 


RET 





? PRIORITY 



OOFO"' 

C5 

PRIORS 

PUSH 


B 

00 F 1 •" 

E603 


AN! 


£* 

OOFS "' 

4F 


MOV 


L- 7 A 

00F4"' 

CD 0029" 


GALL 


GPIXEL 

00F7 " 

B9 


CMP 


C ? COMPARE 

OOFS •" 

30F4 


JRNC 


PLOPNG 

OOF A •" 

79 


MOV 


A, C 

OOFB" 

18CB 


JMPR 


PLOP 1 



S ZGRASS CIRCLE 

COMMAND 



M„CMDCC 

i Rule ?« 

ii 

CIRX 7 O 7 CHARWIN,.»C 

OOFD 

18 

+CIRCLE» 

BYTE 

$CMDADR 

OOFE •" 

OF 

Hh 

„ BYTE 

( 

.CIRX-CIRCLE)/16+ 

OOFF •" 

00 

”1** S 

„ BYTE 

0 


0100 "' 

0000s06 

-h " ■; -V:;- 

a WuRD 

CHARWIN 

0102 " 

010E"' 

4- 

„ WORD 

„ 

. CIRS 


TO WHATS THERE 


CIRS'JC 
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0104 

0111" 

4* 

. WORD 

..CIRA 


0106“ 

434952434C45+ 

.ASCIZ 

/CIRCLE/ 




+ 1 




010D" 

00 


.BYTE 

0 


010E" 

CD 0000s 05 

n 

.CIRS 5 CALL 

ARG 


0111" 

040404040400 . 

.CIRA 5 „BYTE 

$IVAL, t>IVAL, 

$1VAL, % IVAL, $1VAL-. $TAF 

0001 


u 

. X=1 



0006 


, t 

. Y=6 



OOOB 


u 

. XS=11 



0010 


w 

. YS=16 



0015 


ti 

.MOD-21 



001A 


u 

.BX=26 



00 IF 


it 

.BY=31 



0024 


u 

.8X3=36 



0029 


u 

.BYS=41 



002E 


,, 

„BMOD-46 



0117- 

E5 


PUSH 

H 


0118 •- 

FD4E10 


MOV 

C,„.YS(Y) 


01 IB" 

FD4611 


MOV 

B,..YS+1(Y) 


0 HE" 

79 


MOV 

A, C 

5 GET MAD IF 

01 IF" 

BO 


ORA 

B 

5 YD=0 




ZERROR 

ER.BOXt 


0120-' 

2004 

+ 

JRNZ . 

. 0001 


0122" 

CD 0000 s OB 

+• 

CALL ERRPGM 


0125" 

1A 


.BYTE 

ER.BOX 


0126** 



. 00015 1 



0126**’ 

FD5E0B 


MOV 

E*..X S(Y) 

5 SIMILARLY 

0129" 

FD560C 


MOV 

D, . „ X'S+1 <Y) 

5 IF XD=0 

012C " 

7B 


MOV 

A, E 


012D" 

B2 


ORA 

D 





ZERROR 

ER.BOXT 


012E" 

2004 

4- 

JRNZ . 

. 0002 


0130" 

CD 0000 s OB 

4* 

CALL ERRPGM 


0133" 

1A 

4- 

.BYTE 

ER.BOX 


0134 " 


+ . 

. 00025 ] 



0134" 

59 


MOV 

Ei C 


0135" 

50 


MOV 

D, B 


0136" 

CD 0000sOA 


CALL 

DVDE2 5 DE 

-DE/2 

0139" 

C5 

u 

.CLP5 PUSH 

B 


013A" 

.05 


PUSH 

D 




H 

■? 

START CRUNCHIN.. „ 


013B" 

3E01 


MV I 

A, 1 

5 PUSH 1.0 

013D " 

CD 01E9" 

n 

CALL 

PUTSCN 


0140" 

CD OOOOsOE 


CALL 

I PUSH 

? PUT Y ON STACK 

0143" 

3E1D 


MV I 

A, N. FITS 

3 FLOAT IT 

0145" 

CD 0000509 

« 

L A L L 

DONCU 


0148" 

FD5E10 


MOV 

E,..YS(Y) 

3 PUT YD ON STACK 

014B" 

FD5611 


MOV 

D, . .YS+1(Y) 


014E" 

CD OOOOsOE 


CALL 

I PUSH 


0151" 

3E1D 


MV I 

A,N.FL.TS 

3 FLOAT YD TOO 

0153" 

CD 0000 £ 09 

« ' 

CALL 

DONCU 


0156" 

3E13 

7 

MV I 

A j N»FDIV 

5 DO DIVIDE 
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0158 ’’ 

CD OOOOs09 


CALL 

DONCIJ 



015B-' 

3E02 

7 

MV I 

A, 2 

7 

PUSH 2.0 

015D-- 

CD 01E9-' 

tt 

CALL 

PUTSCN 



0160 -' 

3E12 

7 

MV I 

A,N.FMUL 

7 

MULTIPLY 

0162- 

CD OOOOs 09 

« 

CALL 

DONCU 



0165-' 

3E17 

7 

MVI 

A?N.PTOF 

n 

7 

DUPLICATE TOP 

0167-' 

CD 0000509 

it 

CALL 

DONCU 



016 A -' 

3E12 

7 

MVI 

A,N.FMUL 

0 

7 

MULTIPLY TO SQUARE 

016C -' 

CD 0000509 

n 

CALL 

DONCU 



01 6F 

3E1.1 

7 

MVI 

A,N.FSUB 



0171-' 

CD OOOOs09 

11 

CALL 

DONCU 



0174-' 

3E01 

7 

MVI 

A,N.SORT 

7 

DO SORT 

0176“ 

CD OOOOs09 

IS 

CALL 

DONCU 



017?-' 

FD5E0B 

7 

MOV 

Ei ..XS(Y) 

5 

PUSH XD 

017C-' 

FD560C 


MOV 

D, . .XS+1(Y) 



017F ■" 

CD 00005OE 


CALL 

I PUSH 



0182-' 

3E1D 


MVI 

A,M.FLTS 



0184" 

CD 0000509 

it 

CALL 

DONCU 



0187'' 

3E12 

7 

MVI 

Ai N.FMUL 



0189 -' 

CD 0000 5 09 

** 

CALL 

DONCU 



018C ■- 

AF 

7 

XRA 

A 

7 

PUSH .5 

018D" 

CD 01E9 •" 

n 

GALL 

PUTSCN 



0190" 

3E10 

7 

MVI 

A,N.FADD 



0192 "' 

CD 0000509 


CALL 

DONCU 



0195-' 

3E1F 

7 

MVI 

A ? N«FIX S 



0197-' 

CD 0000509 

M 

CALL 

DONCU 



019 A •" 

CD 00005OD 

7 

CALL 

I POP 

m 

7 

WE HAVE DE=XS 



n 

7 

IF XS - 0, 

SKIP IT 



019D-' 

7A 


MOV 

A,D 



019E -' 

B3 


ORA 

E 



019F "' 

283D 


■JRZ 

..SKIP 



01A1 •" 

CBC3 


SET 

0 1 E 

7 

FORCE TO BE ODD! 



n 

7 

BUILD CALL 

TO BOX 



01 A3" 

FD7324 


MOV 

. BXS( Y) »E 

n 

7 

STUFF XS 

01A6 -' 

FD7225 


MOV 

. . BXS+KY) ,D 





7 

TRANSFER REMAINING CRAP 



01A9 - 

FD5E01 


MOV 

E,..X(Y) 



01 AC" 

FD5602 


MOV 

D,..X+l(Y) 

7 

LIKE X 

01AF ■" 

FD731A 


MOV 

..BX(Y),E 



01B2 " 

FD72.1B 

u - 

MOV 

..BX+1(Y )7 D 



01B5-' 

FD362901 

.. 7 - . 

MVI 

..BYS(Y )7 1 

* ■ 

SET YS 

01B9 •" 

F- D362AU0 


MVI 

..BYS+1(Y),0 
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01BD • 

01 co- 

oi C3" 
01C6- 
01C9- 
01C A' 
01CB" 
01CC' 
01CF ' 
01D2" 
01D4- 
01D7- 
01D9- 
01 DC' 
01DE' 
01DF'' 
01E0- 
01-El' 
01E2' 
01 ES¬ 
DI E4- 
01E7" 
01 ES¬ 
DI E9' 

01E9- 
01E A - 
01EB" 
01 EE" 
01F1 ' 
0.1.F3- 
01F4- 
01F5" 
01F8- 
01F9- 


01 F A' 
01FB- 
01FC- 
01FD" 
01FF' 
0201 ' 
0203' 

020A- 
020B- 
020E- 
0214" 
0215- 
0218- 
021B' 
021 E- 
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FD7E15 

MOV 

A,.„MOD ( Y) 

FD772E 

MOV 

t« 

..BMOD(Y)» A 

FD6E06 

7 

MOV 

L,..Y(Y) 

FD6607 

MOV 

H,..Y+l< Y > 

D1 

POP 

D 

D5 

PUSH 

D 

19 

DAD 

D 

FD751F 

MOV 

■ ..BY(Y),L 

FD7420 

MOV 

. .BY+KY) *H 

FDE5 

PUSH 

Y 

11 0019 

LX I 

D i 25 

FD19 

DADY 

D 

CD 0434'" 

CALL 

DOBOX 

FDE1 

POP 

Y 

Dl 

..SKIP5 POP 

D 

IB 

DCX 

D 

Cl 

POP 

B 

OB 

DCX 

E 

78 

MOV 

A,B 

B1 

ORA 

C 

C2 0139-' 

■JNZ 

. . CLP 

E1 

C9 

POP H 

RET 

..CIRX 5 

.i SUBROUTINE TO PUT SMALL CONSTANT 

D5 

PUTSCH* PUSH 

D 

F5 

PUSH 

PSW 

11 0000 

LX I 

D, 0 

CD 0000SOE 

CALL 

I PUSH 

1E80 

MV I 

E,80H 

FI 

POP 

PSW 

57 

MOV 

D, A 

CD 0000 s OE 

CALL 

I PUSH 

Dl 

C9 

POP D 

RET 

5 ZGRASS SCROLL COMMAND 

M.CMDCSCROLL,SCROLX,0,SINE,SCROLA,: 

18 

+SCROLLS .BYTE 

TCMDADR 

09 

+ .BYTE 

(SCROLX-SCROLL)/16+1 

00 

+ .BYTE 

0 

0000512 

+ .WORD 

SINE 

02OB " 

+ .WORD 

SCROL.S 

020E"' 

+ «WORD 

SCROLA 

5343524F4C4C+ .. ASCI Z 

+ 3 

/SCROLL/ 

00 

. BYTE 

0 

CD 0000S05 

bb R UL. b ” L* A L L. 

ARG 

040404040400 SCROLA5 .BYTE 

$ IVAL ? $ IVAL 7 IVAL ■> 

E5 

SCROLL i: PUSH 

H 

11 0050 

L.X I 

Di 80 

21 FFB1 

LX I 

H 5 —79 

CD 04F0 *" 

OALl, 

CLIPPER 

3860 

JRC 

„.NOSC 


ON NCU STACK 


$IVALi$IVALi$TAF 
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0220" 

FDE5 

PUSH 

Y 

0222*" 

CD 0000"OC 

CALL. 

INC5IY 

0225" 

11 0033 

LX I 

D, 51 

0228" 

21 FFCE 

LXI 

H 1 —50 

022B-" 

CD 04F0" 

CALL 

CLIPPER 

022E •" 

FDEl 

POP 

Y 

0230" 

384E 

•JRC 

..NOSC 



; CONVERT X SIZE TO BYTES 

0232 "' 

FD7E0B 

MOV 

A>BX„XS(Y) 

•** 

C603 

ADI 

O 

0237" 

OF 

RRC 


0238- 

OF 

RRC 


0239 

E63F 

ANT 

3FH 

023B ■" 

4F 

MOV 

Cl a 



5 WHICH DIRECTION? 

023C *" 

FD7E15 

MOV 

A,BX.MOD(Y) 

023F"' 

A7 

ANA 

A 

0240" 

oootr 

•JRZ 

..NOSC 

0242•- 

11 FFD8 

LXI 

D ■> -40 

0245" 

FD4610 

MOV 

B,BX.YS(Y) 

0248 - 

FD7E06 

MOV 

A,BX.Y(Y) 

024B" 

FA 0253" 

■JM 

..MINU 



? POSITIVE CASE 


024E" 

11 0028 

LXI 

D 1 40 

0251 '• 

80 

ADD 

B 

0252 •" 

3D 

DCR 

A 

0*253*" 

05 

..MINUS DCR 

B S FUDGI 

0254 

282A 

JRZ 

..NOSC 5 SKIP 

0256"' 

D5 

PUSH 

D 

0257" 

57 

MOV 

D, A 

0258" 

FD5E01 

MOV 

E? BX.X(Y) 

025B •" 

CD 0690" 

CALL 

R2A 

025E-' 

D1 

POP 

D 

025F-' 

FD7E15 

MOV 

A,BX.MOD(Y) 

0262 "' 

CD 067D" 

CALL 

ABS 

0265-' 

C5 

..SCRis PUSH 

B 

0266"' 

E5 

PUSH 

H 

0267 -' 

C5 

« «SCR2s PUSH 

B 

0268 -' 

D5 

PUSH 

D 

0269" 

0600 

MV I 

B,0 

026B •" 

EB 

XCHG 


026C" 

19 

DAD 

D 

026D" 

E5 

PUSH 

H 

026E •" 

EDBO 

LDIR 


0270" 

El 

POP 

H 

0271-' 

D1 

POP 

D 

0272 -' 

Cl 

POP 

B 

0273-' 

10F2 

DJNZ 

u a O C* R .iL. 

0275 •" 

3600 

..KILLS MVI 

mo 

0277-' 


INX 

H 

0278-' 

OD 

DCR 

c 

0279 •" 

2 OF A 

JRNZ 

a » 1**. 31 lw* 

027B •" 

El 

POP 

H 

0270 •" 

Cl 

POP 

B 

027D •" 

3D 

DCR 

A 


E Y SIZE 
IF NAS ONLY 1 
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027E •" 

20E5 

JRNZ »„SCR1 

0280" 

El 

..NOSC: POP H 

0281 •- 

C9 

RET 

0282" 


SCROL'X« 



5 ZGRASS' SNAP COMMAND 

M.CMDCSNAP,..SNPX,0,SCROLL,..SNPA,..SNPSD t 

0282" 

18 

+SNAP5 .BYTE SCMDADR 

0283" 

12 

+ .BYTE (..SNPX-SNAP)/16+1 

0284" 

00 

+ .BYTE 0 

0285" 

01 FA-' 

+ •> WORD SCROLL 

0287-' 

0291 -' 

+ „WORD .„SNPS 

0289" 

• 0294" 

+ .WORD ..SNPA 

028B" 

534E415000 

+ .ASCIZ /SNAP/ 

4* ] 

0290" 

00 

«BYTE 0 

0025 


.„OVH=SNP.DS+OFH ? OVERHEAD FOR ALLOCATION 

0001 


. . NAME=1 IY NAME 

0006 


. . X=6 

00 OB 


..Y=ll 

0010 


..XS=16 

0015 


..YS=21 

0291-' 

CD 0000s05 

..SNPS! CALL ARG 

0294" 

0A0404040400 . . SNPA: . BYTE $NAME, f> IVAL, $ IVAL, $ IVAL, $ IVAL, $TAF 

029A •" 

E5 

PUSH H 

029B" 

DDES 

PUSH X -T'T 

029D-' 

FDE5 

PUSH Y 

5 CLIP THE BOX 

029F 

CD 00005OC 

CALL INC5IY 

02 A2 -' 

11 0050 

LX I D,80 

02 A 5 -' 

21 FFB1 

LX I H, —79 

02A8 -' 

CD 04F0"' 

CALL CLIPPER 

CERROR ER.SNPC 

02AB:' 

3004 

+ JRNC ..0003 

02AD -' 

CD 0000 s OB 

+ CALL ERRPGM 

02B0 -' 

31 

+ .BYTE ER.SNP 

02B1 -' 


+..00035 1 

0261 " 

CD 0000 5 OC 

CALL INC5IY 

02B4 * 

11 0033 

l_X I D, 51 

02B7-' 

21 FFCE 

LX I H,—50 

02B A "' 

CD 04F0"' 

CALL CLIPPER 

CERROR ER.SNPC 

02BD" 

3004 

+ JRNC .„0004 

02BF-' 

CD 0000sOB 

+ CALL ERRPGM 

02C2 -' 

31 

+ .BYTE ER.SNP 

02C3 -' 


+ .., 0004: 3 

02C3 -' 

FDE1 

POP Y ? BACK TO NORMAL 

? FIGURE OUT HOW MUCH MEMORY WE NEED 

02C5-" 

FD7E10 

MOV A,.„XS(Y) ? GET X SIZE 

02C8 - " 

C603 

ADI 3 ? + 3 

02CA •" 

OF 

RRC 

02CB" 

OF 

RRC 

02CG -' 

E63F 

ANI 3FH 

02CE"' 

6F 

MOV L,A ? TO L 

OZUF 

2600 

MVI H,0 

02D1 - 

FD5E15 

MOV E,..YS ( Y) 
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02D4 

54 

MOV 

D,H 

02D5 

CD 039D" 

CALL 

JMUL 

02D8" 

E5 

PUSH 

H 

02D9 

11 0025 

LX I 

Di..OVH 

02DC •" 

19 

DAD 

D 

02DD ■" 

CD 0000 s 08 

CALL 

DIV16 

02E0 •- 

7D 

MOV 

A,L 

02E1 

CD 0000s04 

CALL 

ALLOC 

02E4"' 

E5 

PUSH 

H ; 

02E5 •" 

DDE 1 

pop- 

X 

02E7 •" 

D1 

pop 

D ; 

02E8"' 

E5 

PUSH 

H 

02E9 "' 

AF 

XRA 

A 

02E A " 

DD7702 

MOV 

$FLAGS(X)tA S 

02ED-" 

DD360010 

MV I 

T>TYPE < X > j $AADR 5 

02F1 y 

DD360501 

MV I 

$USE(X),1 ? 

02F5-" 

DD360605 

MV I 

AR„TYP<X>,$ADDRI 

02F9" 

21 0004 

LX I 

H,4 

02FC"' 

19 

DAD 

D 

02FD " 

DD7507 

MOV 

AR.SIZ<X),L " 

0300" 

DD7408 

MOV 

AR.SIZ+KX) ,H 

0303"' 

DD7509 

MOV 

AR.DIM(X)» L 

0306 •- 

DD740A 

MOV 

AR„DIM+1< X)»H 

0309 •- 

DD360BFF 

MV I 

AR. DIM+2(X)» OFFH 

030D"' 

FD5615 

MOV 

D,..YSCY) 

0310" 

FD5E10 

MOV 

E,..XS(Y) 

0313-' 

DD7312 

MOV 

Cl* 

SNP.XS(X)?E ; 

0316" 

DD7713 

MOV 

SNP.XS+1 (X)»A 

0319-' 

DD7214 

MOV 

SNP.YS(X),D 

031C" 

DD7715 

MOV 

SNP.YS+1(X ),A 

03 IF"' 

FDE5 

PUSH 

Y 

0321"' 

7B 

MOV 

A •> E 

0322 “‘ 

C603 

ADI 

o 

0324*** 

OF 

RRC 


0325 - 

OF 

RRC 


0326 y 

E63F 

ANI 

3FH 

0328 *" 

5F 

MOV 

E, A 

0329 

D5 

PUSH 

D 

032A" 

FD5E06 

MOV 

E * . . X < Y) ? 

032D'* 

FD7E0B 

MOV 

A,.„Y«Y) 5 



E 


0330** 

82 

ADD 

D 

0331 y 

3D 

DCR 

A 

0332" 


MOV 

D i A 

0333“’ 

01 0016 

LX I 

B r SNP.DS ? 

0336 “* 

DD09 

DADX 

B 

0338 “* 

CD 0690"' 

CALL 

R2A 

033B “* 

E5 

PUSH 

H ? 

033C “* 

FDE1 

POP 

Y 

033E 

4F 

MOV 

Ci A ; 

033F •“ 

D1 

POP 

D ? 

0340“* 

2827 

JRZ 

. . EASY 5 



? CASE OF FIRST 

PIXEL TO SNAP NOT 


PAGE 10 


IX=ARRAY HEADER ADDR 
DE=BYTES REQUESTED 


CLEAR FLAGS 
LABEL AS ARRAY 
USE COUNT OF 1 

? TYPE INTEGER 


SET SIZE 
AND DIMENSION 

5 SET TERMINATOR- 
SET FIRST ELEMENTS 
TO X, Y SIZES IN PIXEL 


E=X 

FUDGE Y TO TOPMOST LIN 


IX=DEST AREA ADDR 


I /-"SOURCE POINTER 

OSH I FT AMOUNT 
DE=SIZES 

JUMP ON EASY CASE 
BEING ON BYTE BOUNDARY 
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0342-' 

05 

. » HARD s PUSH 

D 


0343 " 

FDE5 

PUSH 

Y 


0345 •" 

FD6600 

MOV 

H 7 0 (Y) ; 

H=FIRST BYTE TO START 

0348 *’ 

FD23 

„ „ HDBL.S INX 

Y 5 

BUMP SOURCE 

034A- 

FD5600 

MOV 

D,0(Y) 5 

D=NEXT GUY 

034D-- 

6A 

MOV 

l v r.i ■? 

INTO L AS WELL 

034E-' 

4i 

MOV 

B, C 

REINIT SHIFT AMT 

034F"' 

29 

..HDSLs DAD 

H 5 

SHIFT OVER SA PIXELS 

0350“ 

29 

DAD 

H 


0351 •“ 

10 FC 

DJNZ 

« n HDSL. 


0353" 

DD7400 

MOV 

o (x) 7 H ; 

STUFF TO BEST 

0356“ 

62 

MOV 

ON 

H,D ; 

SETUP FOR NEXT ITERATI 

0357 “ 

DD23 

I NX 

X 


0359“ 

ID 

DCR 

E 


035ft •“ 

20EC 

JRNZ 

..HDBL 


035C *“ 

FDE1 

POP 

Y ; 

TO NEXT LINE 

035E •“ 

11 0028 

LX I 

Ei 7 40 


0361“ 

FD19 

DADY 

D 


0363-' 

D 1 

POP 

D 


0364“ 

15 

DCR 

D 


0365-' 

20DB 

■JRNZ 

.„HARD 


0367 *“ 

181A 

JMPR 

; FASTER LOOP 

..SNPD 

FOR ZERO SHIFT AMOUNT CASE 

.■0369* 

01 0028 

..EASYs LX I 

B? 40 


0360“ 

7B 

..EZLLS MOV 

A 7 E 


0360“ 

FDE5 

PUSH 

Y 


036F “ 

FD6E00 

..EZBLs MOV 

L.7 0(Y) 


0372“ 

DD7500 

MOV 

0 ( X ) 7 L 


0375 *“ 

DD23 

I NX 

X 


0377“ 

FD23 

I NX 

Y 


0379 •“ 

3D 

DCR 

A 


037ft “ 

20F3 

JRNZ 

..EZBL 


037.C •“ 

FDE1 

POP 

Y 


037E *“ 

FD09 

DADY 

B 


0380 *“ 

15 

DCR 

D 


0381 “ 

20 E 9 

JRNZ ..EZLL 

« 

? DONE WITH TRANSFER - MAKE NAME 

POINT AT ME 

0383 *“ 

FDE1 

..SNPDs POP 

Y 1 IY BACK 

TO NORMAL 

0385*“ 

FD6602 

MOV 

H, . .NAME+KY) ? 

GET PTR TO NAME IN IX 

0388“ 

FD6E01 

MOV 

L,.» NAME(Y) 


038B*“ 

E5 

PUSH 

H 


038C *“ 

DDE 1 

POP 

X 


038E *“ 

D 1 

POP 

D 


038F *“ 

DD360Q0A 

MV I 

$TYPE<X>7$NAMADR 


0393*“ 

DD7305 

MOV 

^NVALUE(X),E 


0396 *“ 

DD7206 

MOV 

®NVALUED1(X )7 D 


0399 “ 

DDE1 

POP 

X. 


039B *“ 

El 

POP 

H 


039C “ 
039D “ 

C9 

RET 

..SNPXs 

? MULTIPLY HL BY DE ROUTINE 

5 SLOW AND SLEAZY 
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039D " 

C5 

JMULs PUSH 


B 

039E-- 

7C 

MOV 


A, H 

039F 

A7 

ANA 


A 

03A0 •" 

2801 

JR 2 


. . NOXC 

03 A2 

EB 

XCHG 



03A3 •" 

45 

..NOXCi MOV 


B, L. 

03 A4"' 

21 0000 

LX I 


H, 0 

03 A 7 "' 

19 

„ . MPYL.S DAD 


D 

03A8 **’ 

10FD 

DJNZ 


„ .. MPYL 

03AA"' 

Cl 

POP 


B 

03AB •- 

C9 

RET 





? ZGRASS DISPLAY COMMAND 



M.CMDIDISPLAY, 

It 

« DISX, 0, AFIXCD3 , . . DISA, . .DISSK 

03 AC"' 

18 

+DISPLAYs 


..BYTE iUCMDADR 

03AD-" 

08 

+ „BYTE 

< 

.» DISX—DISPLAY)/16+1 

03 AE"' 

00 

+ .BYTE 

0 


03AF"' 

631C 

+ . « WORD 

AFI Xt D1C..< " D " -101Q) * 16+FSTI NT 1 

03 B1 *'* 

03 BE"' 

+ »WORD 

u 

.DISS 

03B3"' 

03C1"' 

+ WORD 

u 

..DISA 

03B5 

444953504C41+ „ASCI2 

/DISPLAY/ 



+ 1 



03BD 

00 

. BYTE 


0 

03 BE"' 

CD 0000s05 

u « DISSs CALL 


ARG 

03C1"' 

1004040400 

. .DISAs ..BYTE 


$AADR , $IVAL,$IVAL , $IVAL,$TAF 

0001 


.» NAM=1 



0006 


. .X=6 



000B 


. . Y=l l 



0010 


. .M0DE=16 



03C6"' 

E5 

PUSH 


H 

03C7"' 

DDE5 

PUSH 


X 



5 IX=ARRAY HEADER ADDR 

03C9 "' 

FD6E01 

MOV 


L , .. NAM(Y > 

03CC"' 

FD6602 

MOV 


H, . .NAM+KY) 

03CF"' 

E5 

PUSH 


H 

03D0 "' 

DDE 1 

POP 


X 

03D2'" 

01 0016 

LX 1 


B,SNP.DS 

03D5 "' 

09 

DAD 


B 

03D6 "' 

E5 

PUSH 


H ? SAVE FOR POSTERITY 

03D7 "' 

DD7E12 

MOV 


A,SNP.XS(X) 5 GET XS 

03DA" 

4F 

MOV 


C, A 

03DB" 

3D 

OCR 


A 

03DC 

OF 

RRC 


5 DIVIDE BY 2 

03DD "' 

E67F 

AN I 


7FH 

03DF 

5F 

MOV 


E, A ? FOR FUDGE FACTOR 

03E0"' 

79 

MOV 


A, C 

03E1 " 

C603 

ADI 


..O 

03E3 "' 

OF 

RRC 



03E4" 

OF 

RRC 


; DIVIDE BY 4 BY NOW 

03E5"' 

E63F 

ANI 


3FH 

03E7." 

4F 

MOV 


C,A ? FOR X SIZE 

03ES 

FD7E06 

MOV 


•A,..X(Y) ? CONFUSE THE X COORDIN* 



. TE ' 



03EB 

93 

SUB 


E 

03EC 

5F 

MOV 


E, A 

03ED"' 

DD4614 

MOV 


B, SNP. YS {X ) 5 SIMIL.AR TRICKS FOR Y 
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03F0*" 

78 


MOV 

A* B 

03F1 ' 

OF 


RRC 


03F2 

E67F 


AN I 

7FH 

03F4 •" 

FD860B 


ADD 

. . Y (Y) 

03F7 •" 

57 


MOV 

0, A 

03F8" 

CD 0690“ 


CALL 

R2A 

03FB •' 

57 


MOV 

D,A 5 0=3HIFT AMOUNT 

03FC"' 

FD7E10 


MOV 

As.. MODE (Y > 

03FF-’ 

07 


RLC 


o4oo > 

07 


RL.C 


0401 •" 

E67C 


AN I 

7CH 

0403;“ 

B2 


ORA 

0 

0404'' 

D30C 


OUT 

MAGIC 

0406 •“ 

CBB4 


RES 

6 s H 

0408 •" 

01 


POP 

D 

0409'' 

AF 


XRA 

A 



; NORMAL 

_? WRITE 

040A -' 

C5 

..MWRT s 

PUSH 

B 

040B“ 

EB 


XCHG 


0400" 

05 


PUSH 

0 ; ■ 

040D ■“ 

47 


MOV 

. Bs A : . a ; 

040E" 

EDBO 


LOIR 


0410“ 

12 


STAX 

0 

0411“ 

01 


POP 

0 

0412-" 

EB 


XCHG 


0413" 

0E28 


MV I 

CsBYTEPL 

0415" 

09 


DAD 

B 

0416"' 

Cl 


POP 

B 

0417“ 

1 OF 1 


DJNZ 

„.MWRT 

0419" 

DDE! 


POP 

X 

04 IB" 

El 


POP 

H 

041C" 

C9 


RET 


0410“ 


.DISXs 





? ZGRASS BOX COMMAND 



M.CMDCBOX * BOXX 

:, 0 s AF 1X C BII , BO X A , BO X S 1 1 

041D “' 

18 

4-BOX s 

.BYTE 

$CMDADR 

041E •“ 

OE 

4-' , v . 

. BYTE 

(BOXX-BOX)/16+1 

04 IF" 

00 

4* 

. BYTE 

0 

0420 •“ 

62FC 

4* 

. WORD 

AFIXCBK ( " B " — 101Q )* 16+FSTINT3 

0422-“ 

042B •“ 

4* 

. WORD 

BOXS 

0424" 

042E"' 


. WORD 

BOX A 

0426" 

424F5800 

+ 

. ASCIZ 

/BOX/ 



4- 1 



042A" 

00 


.BYTE 

0 

042B"' 

CD 0000s05 

BQXSs 

CALL 

ARG 

04.2E"' 

040404040400 BO XA s 

. BYTE 

$ IVAL ,$ IVAL ,$ IVAL ,$ IVAL ,$ IVAL s $TAF 

0434 **’ 

E5 

DOBOXs 

PUSH 

H 

0435 

11 0050 


LX I 

0,80 

0438** 

21 FFB1 


LX I 

H, ”79 

043B - 

CD 04F0 ■“ 


CALL 

CLIPPER 5 CLIP X 

043E *“ 

3810 


■JRC 

..SKPL 5 ABORT IF TOTAL OFFSCRE 



EN 



0440 •** 

FOES 


PUSH 

Y 

0442 x 

CD 0000SOC 


CAL© 

INC5IY 

0445 •*’ 

11 0033 


LX I 

0,51 
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0448-' 

21 FFCE 

LX I 

H 7 —50 


044B-' 

CD 04F0-* 

CALL 

CLIPPER 

5 CLIP Y 

044E-' 

FDE1 

POP 

Y 


0450 *V 

386F 

«« SKPL« JRC 

„.SKIP 

? SIMILARLY ABORT Y 



; WE NOW HAVE 

REASONABLE STUFF ON OUR STACK 



3 LETS DEAL WITH MODE STUFF 

NOW 

0452•" 

FD4E15 

MOV 

CiBX.MOD(Y) 


0455' 

79 

MOV 

A, C 

5 IS MODE ZERO? 

0456-' 

A7 

ANA 

A 


0457-’ 

2868 

JR Z 

. .SKIP 

5 YEP - IGNORE 

0459 -’ 

E604 

AN I 

4 

5 ISOLATE WRITE MODE 

045B •" 

32 65EE 

STA 

WRMODE 


045E-* 

79 

MOV 

A 7 C 

? ISOLATE PIXEL NUMBER 

045F -' 

E603 

ANI 

*“i 


0461-' 

4F 

MOV 

■Lift 


0462-' 

0600 

MV I 

B,0 

5 LOOKUP BYTE OF THOSE i 



UYS 


\ 

0464 - 

21 05FE-' 

LX I 

H 7 MSKTBL. 


0467-’ 

09 

DAD 

B 


0468-' 

7E 

MOV 

A, M 


0469-‘ 

32 65ED 

STA 

PIXVAL 




3 NOW THE EXC 

ITING BOX PAINTING STARTS 

046C -' 

FD5E0B 

MOV 

E,BX»XS(Y) 




? WHILE XS > 

0 DO L’ 


046F-* 

7B 

..BOXPs MOV 

A, E 


0470*' 

A7 

ANA 

A 


0471-' 

284E 

JRZ 

. .SKIP 




5 IS MOD(X ? 4) 

= 1 ? 


0473 - 

FD7E01 

MOV 

A,BX.X ( Y) 


0.476" 

E603 

ANI 



0478" 

FED1 

CPI 

1 


047A •" 

200E 

JRNZ 

. . MNZ 




? YES - IS XS 

>4? 


047C " 

7B 

MOV 

A,E 


047D -' 

FE04 

CPI 

4 


047F- 

3834 

JRC 

.„XSL4 




5 YS IS >4 - 

SO PAINT A FULL 

STRIPE 

0481 - 

OEFF 

MV I 

CtOFFH 

? DO WHOLE KIT AND KABO 



DLE 



0483" 

CD 04C3" 

CALL 

„ . STRC 


0486'" 

1604 

MV I 

D, 4 

? A=X ADDR SUBTRACTOR 

0488 -’ 

181F 

JMPR 

. . XSTF 


048A" 

3D 

..MNZs DCR 

A 


048B" 

E603 

ANI 



048D-" 

4F 

MOV 

Ci A 


048E-" 

3E04 

MV I 

A,4 

? COMPUTE MINI X 7 4-MOD ( X' 



,4) 1 



0490 •" 

91 

SUB 

c 


04917 

BB 

CMP 

E 

; COMPARE TO XS 

0492"' 

3801 

JRC 

„.XSBG 


0494 " 

7B 

MOV 

A 7 E 

5 MOD IS BIGGER 

0495-' 

47 

..XSBGs MOV 

B, A 

? B=MIN 

0496 -' 

57 

MOV 

D, A 


0497 -' 

V AF 

XRA 

A 

5 FORM BIT MASK 

0498- 

OF 

..BITFs RRC 
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0499 •" 

OF 


RRC 





049A" 

F6C0 


OR I 


1lOOOOOOB 



049C "' 

1 OF A 


DJNZ 


„„BITF 



049E" 

41 


MOV 


B -? U 



049F •' 

OF 

.. . DOSF 5 
MES 

RRC 



a 

7 

SHIFT OVER MODE X •> 41 TI 

04 AO" 

OF 


RRC 





04A1 •" 

E63F 


AMI 


3FH 



04 A3 •" 

10FA 


DJIMZ 


..DOSF 



04A5-" 

4F 


MOV 


C, A 

IS 

i 

REMEMBERIZE 

04A6"‘ 

CD 04C3-" 


CALL 


..STRC 



04 A9" 

7A 

. . XSTFs 

MOV 


A.» D 



04 AA" 

FD86.01 


ADD 


BX» X(Y) 

« 

7 

UPDATE X COORDINATE 

04AD " 

FD7701 


MOV 


BX.X(Y)t A 



04B0 •" 

7B 


MOV 


At E 

u 

7 

AND PIXELS LEFT (XS) 

04 B1 ** 

92 


SUB 


D 



04B2" 

5F 


MOV 


E-. A 



04B3-" 

18BA 


JMPR 


..BOXP 

it 

? 

LOOP BACK FOR MORE 



? PAINT 

A FINAL 

STRIPE 



04B5 *’ 

47 

. . XSL4S 

MOV 


BtA 



04B6'" 

AF 


XRA 


A 



04B7 •" 

OF 

. „ XSLAs 

RRC 





04B8 •" 

OF 


RRC 





04B9" 

F6C0 


OR I 


11OOOOOOB 



04BB 

10FA 


DJNZ 


n II X*«*LA 



04BD-" 

4F 


MOV 


L- 7 A 



04 BE •" 

CD 04C3 *“ 


CALL 


..STRC 



04C1 •" 

El 

. . SKIPS 

POP 


H 



04C2 •" 

C9 


RET 







; loop 

TO PAINT 

A BOX STRIPE 





* MASK 

TO USE 

PASSED IN C 



04C3 

D5 

..STRCs 

PUSH 


D 



04C4 •" 

FD5606 


MOV 


DtBX.Y(Y) 



04.C7 •" 

FD5E01 


MOV 


EtBX.X(Y) 



04CA •" 

CD 0690" 


CALL 


R2A 

? 

CONVERT COORDINATES 

04CD 

11 FFD8 

ENT 

L.X I 


Dt -40 

a 

7 

NEGATIVE SCREEN INCREM 

04D0 •" 

FD4610 


MOV 


B,BX.YS(Y> 

it 

V 

B=Y SIZE 

04D3"' 

3A 65EE 

E? 

L.DA 


WRMODE 

7 

WHICH TIGHT LOOP TO US 

04D6"' 

A7 


ANA 


A 



04D7 ■" 

200B 


JRNZ 


..PLOP 





? WRITE 

MAGIC 

(XOR FOR NOW) 



04.D9 •" 

3A 65ED 

„ XORLs 

LDA 


PIXVAL 



04DC •" 

A1 


ANA 


c 



04DD-" 

AE 


XRA 


M 



04DE '" 

77 


MOV 


Mr.A 



04DF •" 

19 


DAD 


D 



04E0-" 

10F7 


DJNZ 


..XORL 



U4t2 ’ 

D1 


POP 


D 



04E3 •" 

C9 


RET 







; PLOP 

WRITE LOOP 



04E4 " 

3A 65ED 

..PLOPS 

LDA 


PIXVAL 



04E7" 

AE 


XRA 


M 



04E8" 

A1 


ANA 


c 
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04E9 

AE 


XRA 

M 

04E A 

77 


MOV 

Mi A 

04EB 

19 


DAD 

D 

04EC 

1 OF 6 


DJNZ 

..PLOP 

04EE 

D1 


POP 

D 

04EF 

C9 


RET 


04FO 


BOXXs 




5 CLIP COORDINATE ROUTINE 
5 HL=LOWER LIMIT 
? DE=UPPER LIMIT 

? IY=POINTS TO TYPE OF COORDINATE ON IY STACK 


04F0" 

E5 

CLIPPER 

IS 

n 

PUSH H 



04F1 

FD6E01 


MOV 

L?1(Y) 

n 

? 

HL=COORDINATE 

04F4-' 

FD6602 


MOV 

H,2(Y> 



04F7 "' 

FD4E0B 


MOV 

C, IKY! 

? 

BC=SIZE 

04FA"' 

FD460C 


MOV 

B-/ 12 (Y) 



04FD" 

CD 0580"' 


CALL 

„ „ TSTB 

u 

BARF IF <= 0 




Z ERROR 

ER.BOXC 



0500 

2004 

~h 

•JRNZ „ 

. 0005 



0502" 

CD 0000 s OB 

4* 

CALL ERRPGM 



0505"' 

1A 

4- 

. BYTE 

ER.BOX 



0506" 


4 U 0005S 

1 




0506 " 

OB 


DC X 

B 



0507 

CD 0590"' 


CALL 

„ . DVBC 

n 

7 

BC=BC DIVIDE 2 

050A"' 

A7 


ANA 

A 



050B 

ED42 


DSBC 

B 

« 

7 

HL=LOWER 

050D " 

FD7501 


MOV 

1(Y),L 

M 

7 

STUFF BACK STUFF 

0510"' 

FD7402 


MOV 

2 C Y) j H 



0513 •" 

EB 


XCHG 


n , 

7 

TO DE 

0514"' 

CD 0598"' 


CALL 

CPHLDE 

? 

IS LOWERO-UL? 

0517"' 

3864 


JRC 

.„ NODR 

u 

7 

DONT DRAW 

0519‘" 

E3 


XTHL 




051 A"' 

CD 0598" 


CALL 

CPHLDE 

n 

• 7 

IS LOWER < LOWER LIMIT 

05 ID"' 

38 IF 

,JRC 

. LOK 



051F" 

E5 


PUSH 

H 

7 

SAVE LOWER LIMIT 

0520"' 

EB 


XCHG 



HL=LOWER 7 DE=LL. 

0521"' 

A7 


ANA 

A 



0522"' 

ED52 


DSBC 

D 

7 

HL“LOWER -■ LIMIT 

0524"' 

EB 


XCHG 




0525"' 

FD6E0B 


MOV 

L, 11 (Y) 

tt 

7 

HL--SJ. ZE 

0528"' 

FD660C 


MOV 

H, 12(Y) 



052B"' 

19 


DAD 

D 



052C "' 

FD750B 


MOV 

11(Y),L 

it 

7 

STORE BACK 

052F "' 

FD740C 


MOV 

12 (Y)» H 



0532"' 

CD 0589" 


CALL 

. . TSTH 

7 

IF HO 0 ABORT 

0535"' 

2845 


JRZ 

» »NODI 



0537 "' 

El 


POP 

H 

■ « 

7 

SET COORDINATE AT 

0538 "' 

FD7501 


MOV 

1 ( Y ) r L 

7. : 

LOWER LIMIT 

053B" 

FD7402 


MOV 

2 ( Y ) 7 H 





? DEAL 

WITH OTHER END 



053E " 

EB 

a & LOK s 

XCHG 


DE=LOWER LIMIT 

053F "' 

FD6E01 


MOV 

L, 1 ( Y ) 

7 

HL=COORDINATE 

0542"' 

FD6602 


MOV 

H 7 2 < Y ) 



0545"' 

FD4E0B 


MOV 

C,ll(Y) 

n 

7 

BC=SIZE 
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0548*" 

FD460C 


MOV 

B, 12 ( Y ) 



054B"' 

CD 0580" 


CALL 

..TSTB 






ZERROR 

ER„ BOX II 



054E "' 

2004 

4* 

•JRNZ . 

. 0006 



0550*’ 

CD 0000 s OB 

"h 

CALL ERRPGM 



0553 

1A 

•4 

. BYTE 

ER.BOX 



0554 •- 


+..0006s 

I 




0554-' 

OB 


PCX 

B 



0555*“ 

09 


DAD 

B 

5 

ADD TO LOWER EDGE 

0556 ' 

EB 


XCHG 


n 

UPPER TO DE 

0557 *** 

CD 0598" 


CALL 

CPHLDE 

« 

CAN WE DRAW? 

055A •" 

El 


POF* 

H 

tt 

*? 

H=UL 

055B" 

28 ID 


JRZ 

. . UOK 

tt 

7 

JUMP IF ON EDGE 

055D *" 

30 IF 

DONT 

■JRNC 

..N0D2 

tt 

1 

IF UPPER < LOWER LIMIT 

055F x 

CD 0598" 


CALL 

CPHLDE 

tt 

7 

IS UPPER > UL? 

0562-' 

3016 


JRNC 

. . UOK 

w 

*1 

NO PROB 

0564 ■" 

A7 


ANA 

A 

7 

COMPUTE SIZE FUDGE 

0565" 

ED52 


DSBC 

D 



0567" 

EB 


XCHG 


tt 

7 

TO DE 

0568" 

FD6E0B 


MOV 

L,11(Y) 



0568 "' 

FD660C 


MOV 

H, 12 (Y) 



056E-" 

19 


DAD 

D 

n 

7 

HL=NEW SIZE 

056F *" 

FD750B 


MOV 

11 (Y) j L 



0572 •** 

FD740C 


MOV 

12(Y)rH 



0575"' 

CD 0589"' 


CALL 

.. TSTH 5 

IF HLO 

0 ABORT 

0578" 

2804 


JRZ 

..N0D2 



057A*" 

A7 

. . UOK s 

ANA 

A 

it 

7 

RETURN CARRY CLEAR 

057B*" 

C9 


RET 


« 

7 

FOR GOOD GUYS 

057C" 

El 

■ . NOD 1 s 

POP 

H 

7 

BAD GUY - CLEAN UP STA 

057D 

El 

L-K 

.. NODR: 

POP 

H 



057E*" 

37 

..N0D2s 

STL 


n 

7 

CY FOR DONT DRAW 

057F *" 

C9 

? TEST 

RET 

FOR BC 

BEING <> 0 



0580" 

78 

.. TSTBs 

MOV 

A,B 



0581 **’ 

A7 


ANA 

A 



0582 " 

FA 0587"' 


JM 

! L7 C: '7 
tt u L.U.■«' L 



0585 " 

B1 


ORA 

C 



0586" 

C9 


RET 




0587" 

AF 

} pro 7 « 

tt H Lm Ur V* ** 

XRA 

A 



0588 *" 

C9 


RET 






; SIMILAR ROUTINE FOR HL 



0589 *" 

7C 

TOTI4 ■ 
m « t o i n •» 

MOV 

At H 



OSSA •" 

A7 


ANA 

A 



058B *" 

FA 0587" 


JM 

u« LES Z 



058E *" 

B5 


ORA 

L 



058F " 

C9 


RET 






? DIVIDE BC BY 

*2 



0590" 

A7 

. „ DVBC s 

ANA 

A 



0591 *" 

78 


MOV 

At B 



0592" 

IF 


RAR 




0593*" 

47 


MOV 

B, A 



0594 *" 

79 


MOV 

A? L- 



0595 *" 

IF 


RAR 
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0596 •" 4F 
0597' C9 


MOV Ci A 

RET 


5 ROUTINE TO COMPARE HL TO DE 
? RETURNS CY SET FOR HL<DE (OR DE>HL) 




? 


CY CLEAR, ZERO SET IF HL=DE 



7 


CY CLEAR, ZERO CLEAR IF HL>DE (OR DE<HL) 

0598 •" 

7C 

CPHLDEs 

MOV A, H 

0599 

AA 



XRA D ? ARE SIGNS DIFF? 

059A *“ 

F2 05AS" 



UP ..CK1 ; NO 

059D 

EB 



XCHG ? YES - REVERSE ARGS 

059E *'* 

CD 05A3-' 



CALL ..CK1 ? DO CHECK 

05 A1 

EB 



XCHG 5 BACK TO NORMAL 

05A2 

C9 



RET 

05A3 **' 

7C 

41 

. CK1 s 

MOV A, H 

05A4“* 

BA 



CMP D 

05A5 •*’ 

CO 



RNZ 

05A6-' 

7D 



MOV A, L 

05A7 ■' 

BB 



CMP E 

05A8 ■' 

C9 



RET 



tt 

? 

ZGRASS CLEAR SCREEN COMMAND 





M. CMD C CLEAR, GRCLRX, 0, CI RCL.E, 0, SCLEAR 3 C 

05A9 *•* 

18 

+c 

LEARS 

.BYTE $CMDADR 

05A A 

03 

4- 


.BYTE <GRCLRX-CLEAR)/16+1 

05 AB*** 

00 

-h 


.BYTE 0 

05 AC •" 

OOFD 

4* 


.WORD CIRCLE 

05AE*** 

05B9' 

4* 


.WORD SCLEAR 

05B0 *•’ 

0000 

4 


„ WORD 0 

05B2-: 

434C4541S2 

00 + 


.ASCIZ /CLEAR/ 



+ 3 



05B8 *“ 

00 



. BYTE 0 

05B9 •“ 

E5 

SCLEARs 

PUSH H 

05 BA •’* 

21 4000 



LX I H,400OH 

05BD •' 

75 



MOV M,L 

05BE 

11 4001 



LX I D,4001H 

05C1 •** 

01 OFFF 



LX I B,OFFFH 

05 C 4 *- 

EDBO 



LDIR 

0506-“ 

ED43 65EF 



SBCD OLDXY 5 RESET LINE PTR 

05CA 

El 



POP H 

05CB 

C9 



RET 

05CC ■' 


GRCLRX s 




A 

ZGRASS LINE COMMAND 





M.CMD CLINE,.„LINX,0,LN,..LINA,„.LIN13 C 

05CC *** 

18 

+LINES 

.BYTE $CMDADR 

05 CD •“ 

04 

4 


.BYTE (..LINX—LINE)/16+1 

OSCE *“ 

00 

4 


„ BYTE 0 

05CF •“ 

0000 sOF 

4 


.WORD LN 

OSD 1 ' 

05DB-‘ 

4 


.WORD ».LIN1 

05D3 ’* 

05DE •- 

4 


.WORD ..LINA 

05D5 -* 

4C494E4500 

4 


.ASCIZ /LINE/ 



+ 3 



05 DA" 

00 



.BYTE 0 

05DB-' 

CD 0000s05 

tt 

»LIN1: 

CALL ARG 

05DE-' 

04040400 

.. 

.LINAs 

.BYTE $1VAL,$IVAL,$IVAL,$TAF 

05E2-* 

E5 



PUSH H 

05E3 *' 

FD6606 



MOV H , 6(Y) 5 GET Y 


GET Y 
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05E6- 


: D6E01 


AND X 


05E9 ■" 

ED5B 65EF 


fLDED 

OLDXY | ? GET BAC 

05ED-* 

22 65EF 


ISHIT, 

_m rixv J ; AND SET 

05F0-" 

FD7E0B 


nSv"™" 

A, 11(7) 

05F3-* 

A7 


ANA 

A 

05F 4 ‘‘ 

2806 


JR Z 

. . NODR ? YEP - S! 

05F6 **’ 

32 65EE 


STA 

WRMODE— 

05F9 

CD 0602"' 


CALL 

DVECT A 

05FC *’* 

El 

..NODRs 

POP 

H \ , 

V- rW 

05FD *” 

C9 


RET 

05FE **’ 


.-LINXs 


S<4 



5 STRANGE TABLE 

0,055H, OAAH, crfhl 

05FE-* 

0055AAFF 

MSKTBLs 

« BYTE 



5 THIS 

ROUTINE 

IMPLEMENTS LARRY L 


SKIP DR 




JO*- 


OXti 

J 

VECTOR 


DRAWING ALGORITHM 
INPUTS L = 


1M. SEE ZGRASS 7IEX5H TSOir . J. ry 

= XL COORDINATE W«f ifM ***"&',& 

= Y1 COORDINATE 6^ H 

= X2 COORDINATE j 

= Y2 COORDINATE '/* 

^>bvt \/^ 

= 0, BE = X2,Y2, BC, HL CLOBB^ffi: ^ 

BYTES HOLDS X,Y INCREMENTS o^tfOK 

BYTES HOLDS MIN, MAX DELTAS tfC 

BYTE HOLDS LEFT JUSTIFIED PIXEL F®XO 

.,..j u 


OUTPUT s 

RAM USE 

INCRO 

MNMX 

PIXVAL 

WRITE 

WRMODE 


BYTE HOLDS PLOP-XOR FLAG 


COMPUTE DELTAS AND ABS(DELTAS) 


\Amt) 


hA 


0602 •" 

D5 

DVECTs PUSH 

D 

0603 **’ 

45 

MOV 

B,L ", COMPUTE Y STUFF 

0604"' 

4B 

MOV 

C, E 

0605-' 

CD 0654"' 

CALL 

CDELTA 

0603 •“ 

58 

MOV 

E, B 

0609 -' 

69 

MOV 

L, C 

060A •" 

44 

MOV 

B, H 

060B" 

4A 

MOV 

C,D 5 AND X STUFF 

060C •" 

CD 0654" 

CALL 

CDELTA 

06 OF '* 

61 

MOV 

H, C 

0610" 

50 

MOV 

D, B 

0611-' 

22 65E9 

SHLD 

INCRO 



", DECIDE WHICH 

IS BIGGER - CALL BIGGER MX 

0614-' 

OEOO 

MV I 

CvO 

0616-' 

7A 

MOV 

A, D 

0617" 

BB 

CMP 

E 

0618-' 

3803 

JRC 

» „ D V1 

061 A" 

53 

MOV 

D, E 

06 IB"' 

5F 

MOV 

E, A 

061C •" 

OC 

I NR 

C 

06 ID"' 

7 A 

.» DV1s MOV 

A, D 

06 IE" 

CB3F 

SRLR 

A 

0620 " 

47 

MOV 

B, A 

0621 •" 

EB 

XCHG 


0622" 

22 65EB ' 

SHLD 

MNMX 

0625 " 

D1 

POP 

D 

0626"' 

7D 

MOV 

A, L 


i i 


— 


SMALLER MN 
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0627*- 


IMP 

A 

0628' 

F5 

VECT2: PUSH 

PSW 

0629' 

3A 65EE 

LDA 

WRMODE 

0620*- 

CD OOAO •“ 

CALL 

POINTR ; DRAW THE POINT! 



? NOW INCREMENT 

COORDINATES 

062F **' 

2A 65EB 

VECT2AS LHLD 

MNMX 

0632*- 

78 

MOV 

A, B 

0633 ' 

84 

ADD 

H 

0634' 

BD 

CMP 

L 

0635*- 

380D 

JRC 

VECT4 ? JUMP IF NOT 



5 M+MN IS >=MX, 

SET M=MOD(M+MN,MX) 

0637 ' 

95 

SUB 

L 

0638 - 

47 

MOV 

B, A 



5 INCREMENT BOTH DIRECTIONS 

0639 ' 

2A 65E9 

LHLD 

INCRO 

063C ' 

7A 

MOV 

A, D ? CONFUSE Y 

063D ' 

84 

ADD 

H 

063E ' 

57 

MOV 

D, A 

063F ' 

7B 

VECT3S MOV 

A,E ? THEN X 

0640**’ 

85 

ADD 

L 

0641 ' 

5F 

MOV 

E, A 

0642' 

180B 

JMPR 

VECT5 



? M + MN IS < MX, SET M = M + MN 

0644' 

47 

VECT45 MOV 

Bv A 



5 INCREMENT ONLY MAX DIMENSION 

0645 *' 

2A 65E9 

LHLD 

INCRO 

0648 ' 

79 

MOV 

A, C ? C = DIRECTION FLAG 

0649 ' 

OF 

RRC 


064A' 

30F3 

JRNC 

VECT3 ? 0=>X, SO GO DO IT 

064C “ 

7 A 

MOV 

A, D 5 Y CASE 

064D ' 

84 

ADD 

H 

064E - 

irj*7 

MOV 

D, A 



? END OF LOOP 


064F **’ 

FI 

VECT5: POP 

PSW 

0650 ' 

3D 

DCR 

A 

0651 ' 

20D5 

JRNZ 

VECT2 

0653' 

C9 

RET 




5 SUBROUTINE TO 
DINATES 

COMPUTE DELTA AND INCREMENT 1 

0654' 

E5 

CDELTAs PUSH 

H 

0655' 

D5 

PUSH 

D 

0656' 

69 

MOV 

L, C 

0657' 

CD 0676 

CALL 

SGNEXT 

065A- 

EB 

XCHG 


065B •*’ 

68 

MOV 

L, B 

065C **' 

CD 0676 •" 

CALL 

SGNEXT 

065F - 

AF 

XRA 

A 

0660*- 

ED52 

DSBC 

D 

0662*- 

B4 

ORA 

H 

0663- 

2807 

■JRZ 

. .CD! 

0665' 

4F 

MOV 

C, A 

0666' 

7D 

MOV 

A? L 

0667*- 

2F 

CM A 


066*8 * 

3C 

I NR 

A 

0:669 *- 

47 

MOV 

B, A 
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066A "' 

180 7 

•JMPR 

.-CD3 

0660/ 

B5 

..GDIS ORA 

L 

066D 

2802 

JRZ 

U M L- D j'!. 

066F 

3E01 

MV I 

A, 1 

0671 - 

45 

.« CD2! MOV 

B? L 

0672" 

4F 

MOV 

C* A 

0673'' 

D1 

.LCDS! POP 

D 

0674" 

El 

POP 

H 

0675" 

09 

RET 




5 SIGN EXTENS 

ION SUBROUTINE 

0676'' 

2600 

SGNEXT: MVI 

H, 0 

0678"' 

■ 7D 

MOV 

A? L 

0679"' 

A'7 

ANA 

A 

067A -' 

FO 

RP 


067B" 

25 

DOR 

H 

0670- 

09 

RET 




? ABSOLUTE VALUE ROUTINE 

5 THIS ROUTINE COMPUTES THE 



NT 

5 PASSED IN A 

. THE RESULT 

0670" 

A7 

ABSs ANA 

A 

067E-" 

FO 

RP 


067F" 

2F 

CMA 


0680 " 

30 

I NR 

A 

0681 " 

09 

RET 




? RELATIVE TO 

ABSOLUTE CON Vi 

0682" 

7A 

R2ACLP! MOV 

A,D 

0683 "' 

CD 067D" 

CALL 

ABS 

0686"' 

FE34 

CP I 

52 

0688"' 

DO 

RNC 


0689"' 

7B 

MOV 

A»E 

068A"' 

CD 067D "' 

CALL. 

ABS 

068D -' 

FE51 

CPI 

81 5 

068F ■" 

DO 

RNC 




? NONCLIPPING 

ENTRY POINT 

0690 •" 

05 

R2As PUSH 

B 

0691 -' 

7 A 

MOV 

A,D 

0692-" 

2F 

CMA 


0693"' 

0634 

ADI 

52 

0695" 

6F 

MOV 

L 7 A 

0696"' 

2600 

MV I 

H,0 

0698 "' 

29 

DAD 

H 

0699'' 

29 

DAD 

H 

069A " 

29 

DAD 

H 

069B" 

44 

MOV 

B» H 

0690"' 

4D 

MOV 

C,L 

069D •" 

29 

DAD 

II 

069E " 

29 

DAD 

H 

069F "' 

09 

DAD 

B 

06 AO "' 

7B 

MOV 

A 7 E 

06A1"' 

C64F 

ADI 

79 

06A3 " 

OF 

RRC 


06A4 •" 

OF 

RRC 


06A5 "' 

E63F 

AN I 

3FH 

06 A 7 -' 

4F 

MOV 

C 7 A 


ABSOLUTE VALUE OF THE ARGUME 


IS RETURNED IN A. 


SION ROUTINE 
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U6AW ** 

0600 

06 AA-' 

09 

06 AB' - 

CBF4 

06 AD "■ 

7B 

06 AE ' 

3D 

06AF‘" 

E603 

06B1 '■ 

37 

06B2 

Cl 

06B3-' 

C9 

06B4 - 

CO¬ 

06B5" 

SO 

06B6" 

oc 

06B7- 

03 


MV I 
DAD 
SET 
MOV 
DCR 
AMI 
STC 
POP 
RET 

PIXTBL5 .BYTE 
. BYTE 
. BYTE 
. BYTE 


Bi 0 
B 

6 r H 
A,E 
A 


B 

11OOOOOOB 
110000B 
1100B 
i IB 


END 
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SYMBOL TABL 

E +++++ 







AASN 

005F 

ABS 

067D- 

ALLOC 

0000s04 

X 

ARC 

0000 s 05 X 

ARGSTK: 

60CC 

AR.DIM 

0009 

AR.SIZ 

0007 


AR.TYP 

0006 

AUARTD 

002A 

AUARTS 

002B 

BACKGR 

65CC 


BAUDSE 

0023 

BLANK 

0020 

BOTRAM 

6000 

BOTTOM 

64A9 


BOX 

04 ID*** I 

BOX A 

042E •' 

BOXS 

042B-' 

BOXX 

04F0 *“ 


BSAUD 

0022 

BX.MGD 

0015 

BX . X 

0001 

BX. XS 

OOOB 


BX. Y 

0006 

BX. YS 

0010 

BYTEPL 

0028 

CDELTA 

0654*“ 


CHARSL 

65DD 

CHARMI 

0000s06 X 

CIRCLE 

OOFD •" 

CLEAR 

05A9 '■ 

I 

CLEARS 

60CA 

CLIPPE 

04F0 

CNTRL 

OOOC 

CNTRLC 

65CD 


CNTRLO 

65D9 

CNTRLU 

0015 

CNTRL.Z 

65E4 

CPHLDE 

0598 - 

I 

CPLARE 

611C 

CPLSIZ 

0140 

CR 

OOOD 

CRAPPE 

4FFF 


CSBLOK 

668D 

CSFLAG 

6260 

CURCX 

T~l 

CO 

CURCY 

6816 


CURREN 

64 A5 

GuCO 

0011 

C.C1 

0012 

C. CX 

OOOB 


C.CY 

GOOD 

C. DP 

0013 

G. ST 

0002 

C.X 

0003 


C.XF 

OOOF 

c.xs 

0007 

C. Y 

0005 

C.YF 

0010 


On YS 

0009 

DDTON 

65CE 

DECSIY 

0000s07 X 

DEVBL 

6589 


DEVCLO 

6579 

DEVCL1 

657B 

DEVCL2 

657D 

DEVCL3 

657F 


DEVCL4 

6581 

DEVCL5 

6583 

DEVCL6 

6585 

DEVCL7 

6587 


DEVFB 

65CB 

DEVHCB 

658F 

DEVMO 

658B 

DEVNM 

65B7 


DEVNT 

658D 

DEVTNA 

65BB 

DEVTNB 

65BF 

DEVTNC 

65C3 


DEWA 

65BD 

DEWAR 

6579 

DEWB 

65C1 

DEWBL 

6591 


DEWC 

6505 

DEWD 

65C9 

DEVVN 

65 B9 

DEWS 

65C7 


DEVXCD 

65B3 

DEVYCD 

65B5 

DISPLA 

03AC" I 

DIV16 

0000 s 08 

X 

DOBOX 

0434-' I 

DOLPLH 

62E8 

DOLPPT 

62EA 

DONCU 

0000s 09 

X 

DUMBST 

6577 

DVDE2 

0000SOA X 

DVECT 

0602/ 

EDBCNT 

64AD 


EDCCNT 

64A7 

EDLOMG 

6812 

EDMODE 

681C 

EDNAME 

64A1 


EDNCX 

680C 

EDNGY 

680E 

EDNEWS 

64A5 

Ed ocx 

6808 


EDOCY 

680A 

EDPN 

6806 

EDPO 

6804 

EDPTRC 

64AB 


EDPTRL 

64A9 

EDSTR 

681A 

ERASIT 

0002 

ERRPGM 

0000 s OB 

X 

ER.ARA 

002F 

ERL ARG 

0034 

ER.ASM 

0015 

ER.BOX 

001A 


ER.CHN 

0002 

ER.CMD 

00 IF 

ER.CNV 

0016 

ER.COR 

00 IB 


ER.CTL 

0036 

ERw DEL 

0026 

ER.DIM 

0030 

ER.DIV 

0018 


ER. DP 

0037 

ER . dsk: 

0019 

ER.EDT 

0035 

ER.FMT 

0038 


ER.FNF 

001C 

ER.FOR 

0028 

ER.IMP 

0003 

ER.LAB 

0025 


ER.MAC 

0022 

ER.NAE 

002D 

ER.NAM 

0029 

ER.NEG 

003A 


ER.NOT 

0023 

ER.NUL. 

0039 

ER.NUM 

002B 

ER.NXT 

00 ID 


ER.OFL 

0017 

ER.OPN 

0014 

ER.OVE 

00 IE 

ER.PAR 

002A 


ER.REN 

002C 

ER.RET 

0024 

ER.SEP 

0021 

ER.SNP 

0031 


ER.SPC 

002E 

ER.STK 

0004 

ER. SM 

0032 

ER.TER 

0020 


ER.UFL 

0033 

ER. UMF 

0027 

EXTDEL 

002E 

E.HVAL 

0002 


E.LVAL 

0001 

E.SIZ 

0005 

E.TYP 

0000 

E.VAL 

0001 


FCNTH 

6SD2 

FONT I 

65D3 

FCNT-J 

65D4 

FCNTK 

65D5 . 


FCNTL 

65D6 

FCNTV 

65E0 

FCNTY 

65E3 

FIRST 

64A3 


FLAGS 

65CB 

FOREGR 

65D0 

FRAGSI 

0400 

FREELS 

65E5 


FSTDOL 

648C 

FSTINT 

62EC 

FWDPTR 

65E7 

GPIXEL 

0029-' 


GRCLRX 

05CC-' 

HCAREA 

6593 

HORCB 

0009 

INC5IY 

0000 s OC 

X 

INCRO 

65E9 

INFBK 

GOOD 

INLIN 

OOOF 

1NM0D 

OOOE 


I POP 

0000 s-OD X 

I PUSH 

0000 s OE X 

■JMUL 

0 •”* 9 D f 

JUNK 

6542 


KBLOCK 

65F1 

KEYFLG 

67FF 

KEYPTK 

6533 

KEYTRK 

67F7 


LEDS 

0024 

LF 

OOOA 

LINE 

05CC •" I 

LISTON 

65E2 


LN 

0000 s OF X 

MACSTU 

6536 

MACTOP 

625E 

MAGIC 

OOOC 


MAXFRG 

0040 

MNMX 

65EB 

MPBAV 

0016 

MPMO 

0010 


MF'NCV 

0015 

MPNV 

0017 

MPTNA 

0011 

MPTNB 

00.1.2 


MPTNC 

0013 

MPVIB 

0014 

MSKTBL 

05FE 

M.POPS 

0078 


NBLKB 

0000 

NBLKM 

0001 

NCUCOM 

0029 

NCUDAT 

0028 


NEMBOT 

6810 
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SYMBOL TABLE 

+++++ 








IML 

OOO A 

NORML 

0020 


NSADDR 

6802 


NUMBUF 

64 A3 

N»ACOS 

0006 

N« ARG 

0003 


M.ASIN 

0005 


N.ATAN 

0007 

N.'CHSD 

0034 

N»CHSF 

0015 


NvCHSS 

0074 


N . COS 

0003 

N.DADD 

002C 

N.DDIV 

002F 


N.DIV 

0004 


N.DMUL 

002E 

N,DMUU 

0036 

M„DSUB 

002D 


N.EMAX 

0017 


N.EMIN 

FF69 

N. ESGN 

0040 

N. EXP 

OOOA 


N.FADD 

0010 


N.FDIV 

0013 

N.FIXD 

00 IE 

N.FI.XS 

00 IF 


N.FLTD 

001 c 


N.FLTS 

00 ID 

N.FMUL 

0012 

N.FSUB 

0011 


N.LN 

0009 


N. LOG 

0008 

N.MSGM 

.0080 

N.. NOP 

0000 


N.OFLO 

0001 


M.POPD 

0038 

N.POPF 

0018 

N.PTOD 

0037 


N.PTOF 

0017 


N.PTOS 

0077 - 

N..PUPI 

001A 

M. PWR 

000B 


N.SADD 

006C 


N.SDIV 

006F 

N.SIGN 

0040 

N.SIN 

0002 


N.SMUL 

006E • 


N.SMUU 

0076 

N»SORT 

0001 

N.SSUB 

006D 


N. TAN 

0004 


N.UFLO 

0002 

N.XCHD 

0039 

N.XCHF 

0019 


N.XCHS 

0079 


N.ZERO 

0020 

OLDCHR 

64A0 

OLDCUR 

649F 


OLDKEY 

649D 


OLDXY 

65EF 

ONEBUF 

6729 

OPRL 

0014 


OPRSP 

655B 


OPRSTK 

6547 

OF'RSZ 

655D 

ORJOIN 

OOBG •’* 


ORPT 

00B6"‘ 


OUTOFF 

62E7 

PC NT 

655E 

PINPUT 

0039" 


PIXEL 

0000" 

I 

PIXTBL 

06B4 

PIXVAL 

65ED 

PLOP 

00C7 •" 


PL0P1 

00C8'" 


PLOPNG 

O.OEE" 

POINT 

007A" 

■PO.I-.NTE 

64A7 


POINTR 

00 AO 


PONOFF 

65DA 

POUTPU 

005A"' 

PRINTR 

6540 


PRIOR 

OOFO" 


PRPL.OP 

00C3 < 

PUTSCN 

01E9 *“ 

PUTTAP 

0000s10 

X 

R2A 

0690" 

I 

R2ACLP 

0682"' 

RAMEND 

7FFF 

RAMSTR 

6900 


RANSHT 

655F 


RETNOM 

0000Ml X 

RMDTMP 

6538 

RUBAGK 

0005 


RUBOUT 

007F 


SAVESP 

625C 

SCLEAR 

05B9 •" I 

SCNEED 

0004 


SCROLA 

020E •" 


SCROLE 

0214- I 

SCROLL 

01 FA'' 

SCROLS 

020B"' 


SCROLX 

0282 


SCRWIN 

67CD 

SGNEXT 

0676" 

SINE 

0000s12 

X 

SNAP 

0282 "' 

' l 

SNP.DS 

0016 

SNP.XS 

0012 

SNP.YS 

0014 


SOF'RSP 

653D 


SOF’RSZ 

653F 

STACK 

60C8 

STAKTO 

6000 


STRSIZ 

6800 


SUBSTU 

6534 

TAB 

0009 

T AF'BUF 

64B3 


TAPCON 

64AF 


TAPPRO 

64B1 

TBFEND 

6533 

TEMPHD 

60CA 


TEMPS 

62E5 


TMPARG 

67 AD 

TOP 

6818 

TTYBEG 

6261 


TTYEND 

62E1 


TTYINT 

62E3 

ttyptr 

62E1 

TXTWIN 

67E2 


UARTD 

OOEO 


IJARTFL 

649C 

HARTS 

OOE1 

URINAL 

OFFF 


USREND 

65F1 


V3PTR 

6573 

VBLANK 

OOOA 

VCTR 

0021 


VDCHAR 

649E 


VDNLF 

65CF 

VECT2 

0628'" 

VECT2A 

062F 


VECT3 

063F" 


VECT4 

0644"' 

VECT5 

064F-" 

VIPLH 

6545 


VOICEO 

6563 


WRMODE 

65EE 

XORPT 

OOAE 

XPAND 

0019 


ZGIM2 

0001 


ZGREND 

68 ID 

$AADR 

0010 

SADDRF 

0007 


^ADDRI 

0005 


*ADDRS 

0009 

$ANY 

001A 

$ANYMA 

FFFC 


$ANYVA 

FFFE 


$ARGPT 

0011 

♦BGPTR 

OOOF 

$BNDL 

0007 


UCALLE 

OOOD 


$CMDAD 

0018 

$CPLBL 

002A 

$CSBLO 

0028 


fDATAP 

0007 


$DOLDE 

0001 

$DOLQO 

0002 

$DVAL 

0000 


$END 

001C 


TFADR 

OOOE 

$FLAGS 

0002 

$FORBL. 

0024 


$FORPT 

OOOB 


$FVAL 

0006 

$GOSUB 

001A 

TIADR 

oooc 


% I. IMPEL! 

0018 


fINPPT 

0016 

$1VAL 

0004 

$KEYBL 

0026 


tLENGT 

0001 


$LINPT 

0005 

fLOCPT 

0009 

ifMIBBL 

0022 


fMIBEN 

00 IB 


$NAMAD 

OOOA 

$NAME 

OOOA 

$NASCI 

0009 


$NDEL 

0080 


$NLINK 

0003 

$NULL 

0002 

$NVALU 

0005 


*REPEA 

00 IE 


$RVSTU 

0013 

$SAME 

0020 

$SASCI 

OOOA 


$SLEN 

0006 


$STRAD 

0008 

fSTRPT 

0003 

*TAF 

0000 


$TYPE 

0000 


$ use: 

0005 

,BLNK„ 

0000 s03 X 

-DATA. 

0000* 

X 

.PROG. 

06B8 

X 










